Option Explicit
Sub C_Sample040()
    Dim myWb As Workbook
    Set myWb = Workbooks(1)					'Nï
    myWb.IsAddin = True
    MsgBox "wg]wWqïA{bnNѰC"
    myWb.IsAddin = False
    Set myWb = Nothing						'
End Sub
